| Filename | (eval 46)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:48] |
| Statements | Executed 3895 statements in 2.77ms |
| Eval Invoked At | /Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm line 48 |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 556 | 6 | 6 | 2.18ms | 2.18ms | Types::Standard::__ANON__[:16] |
| 1 | 1 | 1 | 7µs | 11µs | Types::Standard::BEGIN@2 |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | # spent 2.18ms within Types::Standard::__ANON__[(eval 46)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Types/Standard.pm:48]:16] which was called 556 times, avg 4µs/call:
# 254 times (1.05ms+0s) by Type::Tiny::__ANON__[(eval 432)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]:16] at line 16 of (eval 432)[Sub/Quote.pm:3], avg 4µs/call
# 170 times (752µs+0s) by Type::Tiny::__ANON__[(eval 434)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]:16] at line 16 of (eval 434)[Sub/Quote.pm:3], avg 4µs/call
# 98 times (278µs+0s) by JSON::Schema::Modern::Document::_assert__path_to_resource at line 24 of (eval 303)[Sub/Quote.pm:3], avg 3µs/call
# 19 times (52µs+0s) by JSON::Schema::Modern::_assert__metaschema_vocabulary_classes at line 24 of (eval 364)[Sub/Quote.pm:3], avg 3µs/call
# 14 times (39µs+0s) by JSON::Schema::Modern::_assert__vocabulary_classes at line 24 of (eval 359)[Sub/Quote.pm:3], avg 3µs/call
# once (12µs+0s) by Type::Tiny::__ANON__[(eval 423)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]:16] at line 16 of (eval 423)[Sub/Quote.pm:3] | ||||
| 2 | 2 | 93µs | 2 | 15µs | # spent 11µs (7+4) within Types::Standard::BEGIN@2 which was called:
# once (7µs+4µs) by Types::Standard::BEGIN@30 at line 2 # spent 11µs making 1 call to Types::Standard::BEGIN@2
# spent 4µs making 1 call to strict::unimport |
| 3 | 556 | 44µs | return !!0 if ref $_[0]; | ||
| 4 | 556 | 62µs | return !!0 if not $_[0]; | ||
| 5 | 1668 | 347µs | return !!0 if ref(do { my $tmpstr = $_[0]; \$tmpstr }) ne 'SCALAR'; | ||
| 6 | 556 | 643µs | my $stash = \%{"$_[0]\::"}; | ||
| 7 | 556 | 1.58ms | return !!1 if exists($stash->{'ISA'}) && *{$stash->{'ISA'}}{ARRAY} && @{$_[0].'::ISA'}; | ||
| 8 | return !!1 if exists($stash->{'VERSION'}); | ||||
| 9 | foreach my $globref (values %$stash) { | ||||
| 10 | return !!1 | ||||
| 11 | if ref \$globref eq 'GLOB' | ||||
| 12 | ? *{$globref}{CODE} | ||||
| 13 | : ref $globref; # const or sub ref | ||||
| 14 | } | ||||
| 15 | return !!0; | ||||
| 16 | 1 | 3µs | } | ||
| 17 | ; |